/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / mmgr / MM_Spectre10.lha / Rexx / TKG-InfoList.exe

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 03 f3 00 00 00 00 | 00 00 00 02 00 00 00 00 |........|........|
|00000010| 00 00 00 01 00 00 00 6f | 00 00 06 7e 00 00 03 e9 |.......o|...~....|
|00000020| 00 00 00 6f 48 e7 3f 3e | 24 00 26 48 28 4f 20 02 |...oH.?>|$.&H(O .|
|00000030| 5e 40 02 80 ff ff ff fe | 9f c0 24 4f 22 4a 20 0b |^@......|..$O"J .|
|00000040| 67 20 70 20 72 09 74 0a | 16 1b 67 16 b6 02 67 12 |g p r.t.|..g...g.|
|00000050| b6 00 67 f4 b6 01 67 f0 | 12 c3 16 1b 67 04 b6 02 |..g...g.|....g...|
|00000060| 66 f6 42 11 b5 c9 67 08 | b0 21 67 f6 b2 11 67 f2 |f.B...g.|.!g...g.|
|00000070| 7e 14 2c 78 00 04 61 00 | 00 de 4a 80 67 00 00 aa |~.,x..a.|..J.g...|
|00000080| 2a 40 43 f9 00 00 01 1a | 4e ae fe 7a 4a 80 67 00 |*@C.....|N..zJ.g.|
|00000090| 00 92 43 f9 00 00 01 1f | 70 00 4e ae fd d8 4a 80 |..C.....|p.N...J.|
|000000a0| 67 00 00 80 2c 00 cd 8e | 20 4d 93 c9 70 00 4e ae |g...,...| M..p.N.|
|000000b0| ff 70 67 68 26 48 27 7c | 00 00 00 00 00 28 27 4a |.pgh&H'||.....('J|
|000000c0| 00 2c 70 02 72 00 4e ae | ff 5e 67 46 cd 8e 27 7c |.,p.r.N.|.^gF..'||
|000000d0| 02 04 00 01 00 1c 4e ae | ff 7c 43 f9 00 00 01 1a |......N.|.|C.....|
|000000e0| 4e ae fe 7a 2a 00 67 08 | 20 40 22 4b 4e ae fe 92 |N..z*.g.| @"KN...|
|000000f0| 4e ae ff 76 4a 85 67 0e | 20 4d 4e ae fe 80 20 4d |N..vJ.g.| MN... M|
|00000100| 4e ae fe 8c 7e 00 cd 8e | 20 4b 70 02 4e ae ff 64 |N...~...| Kp.N..d|
|00000110| cd 8e cd 8e 20 4b 4e ae | ff 6a cd 8e 22 46 4e ae |.... KN.|.j.."FN.|
|00000120| fe 62 20 4d 61 00 00 8c | 20 07 2e 4c 4c df 7c fc |.b Ma...| ..LL.|.|
|00000130| 4e 75 00 00 00 00 00 00 | 00 00 00 00 00 00 52 45 |Nu......|......RE|
|00000140| 58 58 00 72 65 78 78 73 | 79 73 6c 69 62 2e 6c 69 |XX.rexxs|yslib.li|
|00000150| 62 72 61 72 79 00 48 e7 | 20 22 2c 78 00 04 70 ff |brary.H.| ",x..p.|
|00000160| 4e ae fe b6 74 ff b4 00 | 67 40 24 00 70 22 22 3c |N...t...|g@$.p""<|
|00000170| 00 01 00 01 4e ae ff 3a | 4a 80 67 28 24 40 15 7c |....N..:|J.g($@.||
|00000180| 00 04 00 08 15 42 00 0f | 93 c9 4e ae fe da 25 40 |.....B..|..N...%@|
|00000190| 00 10 41 ea 00 14 25 48 | 00 1c 43 ea 00 18 20 89 |..A...%H|..C... .|
|000001a0| 20 0a 60 08 20 02 4e ae | fe b0 70 00 4c df 44 04 | .`. .N.|..p.L.D.|
|000001b0| 4e 75 48 e7 00 22 24 48 | 2c 78 00 04 70 ff 15 40 |NuH.."$H|,x..p..@|
|000001c0| 00 08 25 40 00 14 70 00 | 10 2a 00 0f 4e ae fe b0 |..%@..p.|.*..N...|
|000001d0| 22 4a 70 22 4e ae ff 2e | 4c df 44 00 4e 75 00 00 |"Jp"N...|L.D.Nu..|
|000001e0| 00 00 03 ec 00 00 00 03 | 00 00 00 00 00 00 00 60 |........|.......`|
|000001f0| 00 00 00 70 00 00 00 b8 | 00 00 00 01 00 00 00 01 |...p....|........|
|00000200| 00 00 00 94 00 00 00 00 | 00 00 03 f2 00 00 03 ea |........|........|
|00000210| 00 00 06 7e 2f 2a 0a 24 | 56 45 52 3a 20 54 4b 47 |...~/*.$|VER: TKG|
|00000220| 2d 49 6e 66 6f 4c 69 73 | 74 20 31 2e 31 20 28 31 |-InfoLis|t 1.1 (1|
|00000230| 36 2f 30 33 2f 39 38 29 | 0a 2a 2f 0a 2f 2a 20 43 |6/03/98)|.*/./* C|
|00000240| 6f 6d 70 72 65 73 73 65 | 64 20 77 69 74 68 20 43 |ompresse|d with C|
|00000250| 6f 6d 70 72 65 73 73 52 | 65 78 78 20 76 33 2e 30 |ompressR|exx v3.0|
|00000260| 20 28 43 4d 50 4d 4f 44 | 45 20 4e 4f 52 4d 41 4c | (CMPMOD|E NORMAL|
|00000270| 29 2c 20 28 43 29 20 31 | 39 39 33 2d 39 36 20 52 |), (C) 1|993-96 R|
|00000280| 6f 62 65 72 74 20 48 6f | 66 6d 61 6e 6e 20 2a 2f |obert Ho|fmann */|
|00000290| 0a 70 61 72 73 65 20 61 | 72 67 20 6f 70 74 73 3b |.parse a|rg opts;|
|000002a0| 6f 70 74 69 6f 6e 73 20 | 63 61 63 68 65 3b 6f 70 |options |cache;op|
|000002b0| 74 69 6f 6e 73 20 66 61 | 69 6c 61 74 20 39 39 3b |tions fa|ilat 99;|
|000002c0| 6f 70 74 69 6f 6e 73 20 | 72 65 73 75 6c 74 73 3b |options |results;|
|000002d0| 73 69 67 6e 61 6c 20 6f | 6e 20 62 72 65 61 6b 5f |signal o|n break_|
|000002e0| 63 3b 73 69 67 6e 61 6c | 20 6f 6e 20 62 72 65 61 |c;signal| on brea|
|000002f0| 6b 5f 64 3b 73 69 67 6e | 61 6c 20 6f 6e 20 62 72 |k_d;sign|al on br|
|00000300| 65 61 6b 5f 65 3b 73 69 | 67 6e 61 6c 20 6f 6e 20 |eak_e;si|gnal on |
|00000310| 62 72 65 61 6b 5f 66 3b | 73 69 67 6e 61 6c 20 6f |break_f;|signal o|
|00000320| 6e 20 68 61 6c 74 3b 73 | 69 67 6e 61 6c 20 6f 6e |n halt;s|ignal on|
|00000330| 20 69 6f 65 72 72 3b 73 | 69 67 6e 61 6c 20 6f 6e | ioerr;s|ignal on|
|00000340| 20 73 79 6e 74 61 78 3b | 61 64 64 72 65 73 73 20 | syntax;|address |
|00000350| 27 4d 41 49 4c 4d 41 4e | 41 47 45 52 27 3b 27 73 |'MAILMAN|AGER';'s|
|00000360| 68 6f 77 27 3b 4d 61 69 | 6e 3a 3b 63 61 6c 6c 20 |how';Mai|n:;call |
|00000370| 49 6e 69 74 3b 63 61 6c | 6c 20 48 65 61 64 65 72 |Init;cal|l Header|
|00000380| 3b 63 61 6c 6c 20 41 64 | 64 54 6f 6f 6c 73 3b 63 |;call Ad|dTools;c|
|00000390| 61 6c 6c 20 44 6f 52 65 | 71 75 65 73 74 3b 63 61 |all DoRe|quest;ca|
|000003a0| 6c 6c 20 52 65 71 75 65 | 73 74 5f 43 68 6f 69 63 |ll Reque|st_Choic|
|000003b0| 65 28 27 44 6f 6e 27 27 | 74 20 66 6f 72 67 65 74 |e('Don''|t forget|
|000003c0| 2c 20 74 68 65 20 6c 61 | 73 74 65 73 74 20 76 65 |, the la|stest ve|
|000003d0| 72 73 69 6f 6e 73 20 6f | 66 20 54 4b 47 20 53 6f |rsions o|f TKG So|
|000003e0| 66 74 77 61 72 65 27 27 | 73 20 70 72 6f 67 72 61 |ftware''|s progra|
|000003f0| 6d 73 5c 6e 61 72 65 20 | 61 76 61 69 6c 61 62 6c |ms\nare |availabl|
|00000400| 65 20 66 72 6f 6d 20 54 | 68 65 20 4b 69 6c 6c 69 |e from T|he Killi|
|00000410| 6e 67 5e 47 72 6f 75 6e | 64 20 42 42 53 2e 5c 6e |ng^Groun|d BBS.\n|
|00000420| 5c 6e 59 6f 75 20 63 61 | 6e 20 61 6c 73 6f 20 66 |\nYou ca|n also f|
|00000430| 72 65 71 20 66 72 6f 6d | 20 54 68 65 20 4b 69 6c |req from| The Kil|
|00000440| 6c 69 6e 67 5e 47 72 6f | 75 6e 64 20 2d 20 73 69 |ling^Gro|und - si|
|00000450| 6d 70 6c 79 20 66 72 65 | 71 20 74 68 65 20 6e 61 |mply fre|q the na|
|00000460| 6d 65 5c 6e 6f 66 20 74 | 68 65 20 74 6f 6f 6c 3a |me\nof t|he tool:|
|00000470| 20 65 2e 67 2e 20 22 5c | 31 46 69 6c 65 4b 69 6c | e.g. "\|1FileKil|
|00000480| 6c 65 72 5c 32 22 2c 20 | 22 5c 31 4d 4d 5f 4d 65 |ler\2", |"\1MM_Me|
|00000490| 67 61 53 74 61 74 5c 32 | 22 2c 20 65 74 63 2e 5c |gaStat\2|", etc.\|
|000004a0| 6e 5c 6e 54 68 65 20 4b | 69 6c 6c 69 6e 67 5e 47 |n\nThe K|illing^G|
|000004b0| 72 6f 75 6e 64 20 2d 20 | 4f 6e 6c 69 6e 65 20 66 |round - |Online f|
|000004c0| 72 6f 6d 20 32 32 3a 30 | 30 20 75 6e 74 69 6c 20 |rom 22:0|0 until |
|000004d0| 30 38 3a 30 30 20 28 47 | 4d 54 2c 20 2b 30 2c 20 |08:00 (G|MT, +0, |
|000004e0| 2b 44 53 54 29 20 6f 6e | 20 2b 34 34 20 28 30 29 |+DST) on| +44 (0)|
|000004f0| 31 39 37 38 20 37 35 31 | 33 39 33 5c 6e 32 3a 34 |1978 751|393\n2:4|
|00000500| 34 32 2f 31 30 37 2e 30 | 40 66 69 64 6f 6e 65 74 |42/107.0|@fidonet|
|00000510| 2c 20 33 39 3a 31 33 36 | 2f 31 2e 30 40 61 6d 69 |, 39:136|/1.0@ami|
|00000520| 67 61 6e 65 74 27 2c 27 | 2a 20 20 5f 4f 6b 61 79 |ganet','|*  _Okay|
|00000530| 20 20 27 2c 27 5f 27 29 | 3b 63 61 6c 6c 20 51 75 |  ','_')|;call Qu|
|00000540| 69 74 28 30 2c 20 27 41 | 6c 6c 20 64 6f 6e 65 2e |it(0, 'A|ll done.|
|00000550| 27 29 3b 65 78 69 74 3b | 62 72 65 61 6b 5f 63 3a |');exit;|break_c:|
|00000560| 3b 62 72 65 61 6b 5f 64 | 3a 3b 62 72 65 61 6b 5f |;break_d|:;break_|
|00000570| 65 3a 3b 62 72 65 61 6b | 5f 66 3a 3b 68 61 6c 74 |e:;break|_f:;halt|
|00000580| 3a 3b 73 69 67 6e 61 6c | 20 6f 66 66 20 62 72 65 |:;signal| off bre|
|00000590| 61 6b 5f 63 3b 73 69 67 | 6e 61 6c 20 6f 66 66 20 |ak_c;sig|nal off |
|000005a0| 62 72 65 61 6b 5f 64 3b | 73 69 67 6e 61 6c 20 6f |break_d;|signal o|
|000005b0| 66 66 20 62 72 65 61 6b | 5f 65 3b 73 69 67 6e 61 |ff break|_e;signa|
|000005c0| 6c 20 6f 66 66 20 62 72 | 65 61 6b 5f 66 3b 73 69 |l off br|eak_f;si|
|000005d0| 67 6e 61 6c 20 6f 66 66 | 20 68 61 6c 74 3b 72 65 |gnal off| halt;re|
|000005e0| 74 75 72 6e 5f 63 6f 64 | 65 20 3d 20 35 3b 65 72 |turn_cod|e = 5;er|
|000005f0| 72 6f 72 5f 6c 69 6e 65 | 20 3d 20 30 3b 65 72 72 |ror_line| = 0;err|
|00000600| 6f 72 5f 6d 73 67 20 3d | 20 27 45 78 65 63 75 74 |or_msg =| 'Execut|
|00000610| 69 6f 6e 20 68 61 6c 74 | 65 64 21 21 21 27 3b 72 |ion halt|ed!!!';r|
|00000620| 63 20 3d 20 30 3b 73 69 | 67 6e 61 6c 20 45 78 69 |c = 0;si|gnal Exi|
|00000630| 74 3b 45 78 69 74 3a 3b | 73 65 6c 65 63 74 3b 77 |t;Exit:;|select;w|
|00000640| 68 65 6e 20 72 65 74 75 | 72 6e 5f 63 6f 64 65 3e |hen retu|rn_code>|
|00000650| 3d 34 30 20 74 68 65 6e | 20 65 72 72 6f 72 20 3d |=40 then| error =|
|00000660| 20 27 49 4e 54 45 52 4e | 41 4c 2d 45 52 52 4f 52 | 'INTERN|AL-ERROR|
|00000670| 3a 27 3b 77 68 65 6e 20 | 72 65 74 75 72 6e 5f 63 |:';when |return_c|
|00000680| 6f 64 65 3e 3d 33 30 20 | 74 68 65 6e 20 65 72 72 |ode>=30 |then err|
|00000690| 6f 72 20 3d 20 27 49 4f | 2d 45 52 52 4f 52 3a 27 |or = 'IO|-ERROR:'|
|000006a0| 3b 77 68 65 6e 20 72 65 | 74 75 72 6e 5f 63 6f 64 |;when re|turn_cod|
|000006b0| 65 3e 3d 32 30 20 74 68 | 65 6e 20 65 72 72 6f 72 |e>=20 th|en error|
|000006c0| 20 3d 20 27 45 52 52 4f | 52 3a 27 3b 77 68 65 6e | = 'ERRO|R:';when|
|000006d0| 20 72 65 74 75 72 6e 5f | 63 6f 64 65 3e 3d 31 30 | return_|code>=10|
|000006e0| 20 74 68 65 6e 20 65 72 | 72 6f 72 20 3d 20 27 57 | then er|ror = 'W|
|000006f0| 41 52 4e 49 4e 47 3a 27 | 3b 77 68 65 6e 20 72 65 |ARNING:'|;when re|
|00000700| 74 75 72 6e 5f 63 6f 64 | 65 3e 3d 35 20 74 68 65 |turn_cod|e>=5 the|
|00000710| 6e 20 65 72 72 6f 72 20 | 3d 20 27 49 4e 46 4f 3a |n error |= 'INFO:|
|00000720| 27 3b 6f 74 68 65 72 77 | 69 73 65 20 65 72 72 6f |';otherw|ise erro|
|00000730| 72 20 3d 20 27 27 3b 65 | 6e 64 3b 63 61 6c 6c 20 |r = '';e|nd;call |
|00000740| 4c 6f 67 28 29 3b 63 61 | 6c 6c 20 4c 6f 67 28 27 |Log();ca|ll Log('|
|00000750| 2a 2a 2a 27 20 73 74 72 | 69 70 28 65 72 72 6f 72 |***' str|ip(error|
|00000760| 20 65 72 72 6f 72 5f 6d | 73 67 29 20 27 2a 2a 2a | error_m|sg) '***|
|00000770| 27 2c 20 27 2b 27 29 3b | 63 61 6c 6c 20 4c 6f 67 |', '+');|call Log|
|00000780| 28 2c 27 5c 27 29 3b 63 | 61 6c 6c 20 73 65 74 63 |(,'\');c|all setc|
|00000790| 6c 69 70 28 27 4d 4d 5f | 4c 6f 67 50 72 65 27 2c |lip('MM_|LogPre',|
|000007a0| 20 73 79 73 74 65 6d 2e | 6d 6d 2e 6c 6f 67 70 72 | system.|mm.logpr|
|000007b0| 65 29 3b 65 78 69 74 20 | 72 65 74 75 72 6e 5f 63 |e);exit |return_c|
|000007c0| 6f 64 65 3b 47 65 74 5f | 56 65 72 73 69 6f 6e 3a |ode;Get_|Version:|
|000007d0| 20 70 72 6f 63 65 64 75 | 72 65 3b 70 61 72 73 65 | procedu|re;parse|
|000007e0| 20 61 72 67 20 6d 6f 64 | 65 3b 70 61 72 73 65 20 | arg mod|e;parse |
|000007f0| 76 61 6c 75 65 20 73 6f | 75 72 63 65 6c 69 6e 65 |value so|urceline|
|00000800| 28 33 2d 6d 6f 64 65 29 | 20 77 69 74 68 20 2e 20 |(3-mode)| with . |
|00000810| 2e 20 76 65 72 20 2e 3b | 70 61 72 73 65 20 76 61 |. ver .;|parse va|
|00000820| 72 20 76 65 72 20 74 73 | 74 20 27 df 27 20 2e 3b |r ver ts|t '.' .;|
|00000830| 69 66 20 7e 64 61 74 61 | 74 79 70 65 28 73 74 72 |if ~data|type(str|
|00000840| 69 70 28 74 73 74 2c 20 | 27 62 27 2c 20 27 2f 63 |ip(tst, |'b', '/c|
|00000850| 65 20 27 29 2c 20 27 4e | 27 29 20 74 68 65 6e 20 |e '), 'N|') then |
|00000860| 69 66 20 7e 6d 6f 64 65 | 20 74 68 65 6e 20 76 65 |if ~mode| then ve|
|00000870| 72 20 3d 20 47 65 74 5f | 56 65 72 73 69 6f 6e 28 |r = Get_|Version(|
|00000880| 31 29 3b 65 6c 73 65 20 | 65 78 69 74 20 39 39 3b |1);else |exit 99;|
|00000890| 72 65 74 75 72 6e 20 76 | 65 72 3b 48 65 61 64 65 |return v|er;Heade|
|000008a0| 72 3a 3b 63 61 6c 6c 20 | 4c 6f 67 28 2c 27 2f 27 |r:;call |Log(,'/'|
|000008b0| 29 3b 63 61 6c 6c 20 4c | 6f 67 28 27 2a 2a 2a 27 |);call L|og('***'|
|000008c0| 20 73 79 73 74 65 6d 2e | 70 72 67 2e 69 64 20 27 | system.|prg.id '|
|000008d0| 2a 2a 2a 27 2c 20 27 2b | 27 29 3b 63 61 6c 6c 20 |***', '+|');call |
|000008e0| 4c 6f 67 28 27 20 27 73 | 79 73 74 65 6d 2e 70 72 |Log(' 's|ystem.pr|
|000008f0| 67 2e 63 72 29 3b 63 61 | 6c 6c 20 4c 6f 67 28 29 |g.cr);ca|ll Log()|
|00000900| 3b 72 65 74 75 72 6e 3b | 49 6e 69 74 3a 3b 64 72 |;return;|Init:;dr|
|00000910| 6f 70 20 73 79 73 74 65 | 6d 2e 3b 64 72 6f 70 20 |op syste|m.;drop |
|00000920| 74 6f 6f 6c 73 2e 3b 4d | 4d 5f 47 65 74 54 61 73 |tools.;M|M_GetTas|
|00000930| 6b 50 72 69 20 27 73 79 | 73 74 65 6d 2e 74 61 73 |kPri 'sy|stem.tas|
|00000940| 6b 70 72 69 27 3b 63 61 | 6c 6c 20 70 72 61 67 6d |kpri';ca|ll pragm|
|00000950| 61 28 27 70 27 2c 20 73 | 79 73 74 65 6d 2e 74 61 |a('p', s|ystem.ta|
|00000960| 73 6b 70 72 69 29 3b 73 | 79 73 74 65 6d 2e 70 72 |skpri);s|ystem.pr|
|00000970| 67 2e 6e 61 6d 65 20 3d | 20 27 54 4b 47 2d 49 6e |g.name =| 'TKG-In|
|00000980| 66 6f 4c 69 73 74 27 3b | 73 79 73 74 65 6d 2e 70 |foList';|system.p|
|00000990| 72 67 2e 76 65 72 20 3d | 20 47 65 74 5f 56 65 72 |rg.ver =| Get_Ver|
|000009a0| 73 69 6f 6e 28 30 29 3b | 73 79 73 74 65 6d 2e 70 |sion(0);|system.p|
|000009b0| 72 67 2e 69 64 20 3d 20 | 73 79 73 74 65 6d 2e 70 |rg.id = |system.p|
|000009c0| 72 67 2e 6e 61 6d 65 20 | 27 76 27 73 79 73 74 65 |rg.name |'v'syste|
|000009d0| 6d 2e 70 72 67 2e 76 65 | 72 3b 73 79 73 74 65 6d |m.prg.ve|r;system|
|000009e0| 2e 70 72 67 2e 63 72 20 | 3d 20 27 28 43 29 20 31 |.prg.cr |= '(C) 1|
|000009f0| 39 39 37 20 4e 65 69 6c | 20 57 69 6c 6c 69 61 6d |997 Neil| William|
|00000a00| 73 27 3b 73 79 73 74 65 | 6d 2e 74 6d 70 66 69 6c |s';syste|m.tmpfil|
|00000a10| 65 20 3d 20 27 54 3a 27 | 73 79 73 74 65 6d 2e 70 |e = 'T:'|system.p|
|00000a20| 72 67 2e 6e 61 6d 65 27 | 2e 74 6d 70 27 3b 73 79 |rg.name'|.tmp';sy|
|00000a30| 73 74 65 6d 2e 6d 6d 2e | 6c 6f 67 70 72 65 20 3d |stem.mm.|logpre =|
|00000a40| 20 67 65 74 63 6c 69 70 | 28 27 4d 4d 5f 4c 6f 67 | getclip|('MM_Log|
|00000a50| 50 72 65 27 29 3b 73 79 | 73 74 65 6d 2e 70 72 67 |Pre');sy|stem.prg|
|00000a60| 2e 6c 6f 67 70 72 65 20 | 3d 20 73 79 73 74 65 6d |.logpre |= system|
|00000a70| 2e 6d 6d 2e 6c 6f 67 70 | 72 65 27 7c 27 3b 73 79 |.mm.logp|re'|';sy|
|00000a80| 73 74 65 6d 2e 61 75 74 | 68 6f 72 2e 6e 61 6d 65 |stem.aut|hor.name|
|00000a90| 20 3d 20 27 4e 65 69 6c | 20 57 69 6c 6c 69 61 6d | = 'Neil| William|
|00000aa0| 73 27 3b 73 79 73 74 65 | 6d 2e 61 75 74 68 6f 72 |s';syste|m.author|
|00000ab0| 2e 61 64 64 72 20 3d 20 | 27 32 3a 34 34 32 2f 31 |.addr = |'2:442/1|
|00000ac0| 30 37 2e 30 40 66 69 64 | 6f 6e 65 74 27 3b 63 61 |07.0@fid|onet';ca|
|00000ad0| 6c 6c 20 73 65 74 63 6c | 69 70 28 27 4d 4d 5f 4c |ll setcl|ip('MM_L|
|00000ae0| 6f 67 50 72 65 27 2c 20 | 73 79 73 74 65 6d 2e 70 |ogPre', |system.p|
|00000af0| 72 67 2e 6c 6f 67 70 72 | 65 29 3b 4d 4d 5f 56 65 |rg.logpr|e);MM_Ve|
|00000b00| 72 73 69 6f 6e 20 27 73 | 79 73 74 65 6d 2e 6d 6d |rsion 's|ystem.mm|
|00000b10| 27 3b 63 61 6c 6c 20 49 | 6e 63 6c 75 64 65 5f 4c |';call I|nclude_L|
|00000b20| 69 62 28 27 72 65 78 78 | 73 75 70 70 6f 72 74 27 |ib('rexx|support'|
|00000b30| 29 3b 72 65 74 75 72 6e | 3b 49 6e 63 6c 75 64 65 |);return|;Include|
|00000b40| 5f 4c 69 62 3a 20 70 72 | 6f 63 65 64 75 72 65 20 |_Lib: pr|ocedure |
|00000b50| 45 78 70 6f 73 65 20 73 | 79 73 74 65 6d 2e 3b 70 |Expose s|ystem.;p|
|00000b60| 61 72 73 65 20 61 72 67 | 20 6c 69 62 2c 20 70 72 |arse arg| lib, pr|
|00000b70| 69 6f 3b 69 66 20 72 69 | 67 68 74 28 75 70 70 65 |io;if ri|ght(uppe|
|00000b80| 72 28 6c 69 62 29 2c 20 | 38 29 7e 3d 27 2e 4c 49 |r(lib), |8)~='.LI|
|00000b90| 42 52 41 52 59 27 20 74 | 68 65 6e 20 6c 69 62 20 |BRARY' t|hen lib |
|00000ba0| 3d 20 6c 69 62 27 2e 6c | 69 62 72 61 72 79 27 3b |= lib'.l|ibrary';|
|00000bb0| 69 66 20 70 72 69 6f 3d | 27 27 20 74 68 65 6e 20 |if prio=|'' then |
|00000bc0| 70 72 69 6f 20 3d 20 30 | 3b 69 66 20 7e 73 68 6f |prio = 0|;if ~sho|
|00000bd0| 77 28 27 6c 27 2c 20 6c | 69 62 29 20 74 68 65 6e |w('l', l|ib) then|
|00000be0| 20 69 66 20 7e 61 64 64 | 6c 69 62 28 6c 69 62 2c | if ~add|lib(lib,|
|00000bf0| 20 70 72 69 6f 2c 20 2d | 33 30 2c 20 30 29 20 74 | prio, -|30, 0) t|
|00000c00| 68 65 6e 20 63 61 6c 6c | 20 51 75 69 74 28 32 30 |hen call| Quit(20|
|00000c10| 2c 20 27 43 6f 75 6c 64 | 20 6e 6f 74 20 6f 70 65 |, 'Could| not ope|
|00000c20| 6e 27 20 6c 69 62 27 21 | 21 21 27 29 3b 72 65 74 |n' lib'!|!!');ret|
|00000c30| 75 72 6e 3b 49 4f 65 72 | 72 3a 3b 73 69 67 6e 61 |urn;IOer|r:;signa|
|00000c40| 6c 20 6f 66 66 20 69 6f | 65 72 72 3b 72 65 74 75 |l off io|err;retu|
|00000c50| 72 6e 5f 63 6f 64 65 20 | 3d 20 32 30 3b 65 72 72 |rn_code |= 20;err|
|00000c60| 6f 72 5f 6c 69 6e 65 20 | 3d 20 73 69 67 6c 3b 65 |or_line |= sigl;e|
|00000c70| 72 72 6f 72 5f 6d 73 67 | 20 3d 20 27 49 4f 2d 65 |rror_msg| = 'IO-e|
|00000c80| 72 72 6f 72 27 20 72 63 | 20 27 61 74 20 6c 69 6e |rror' rc| 'at lin|
|00000c90| 65 27 20 73 69 67 6c 20 | 27 5b 27 65 72 72 6f 72 |e' sigl |'['error|
|00000ca0| 74 65 78 74 28 72 63 29 | 27 5d 27 29 3b 72 63 20 |text(rc)|']');rc |
|00000cb0| 3d 20 30 3b 73 69 67 6e | 61 6c 20 45 78 69 74 3b |= 0;sign|al Exit;|
|00000cc0| 4c 6f 67 3a 20 70 72 6f | 63 65 64 75 72 65 20 45 |Log: pro|cedure E|
|00000cd0| 78 70 6f 73 65 20 73 79 | 73 74 65 6d 2e 3b 70 61 |xpose sy|stem.;pa|
|00000ce0| 72 73 65 20 61 72 67 20 | 74 65 78 74 2c 20 70 72 |rse arg |text, pr|
|00000cf0| 65 3b 74 6d 70 20 3d 20 | 77 6f 72 64 28 27 50 52 |e;tmp = |word('PR|
|00000d00| 47 20 4d 4d 27 2c 20 28 | 70 72 65 7e 3d 27 27 29 |G MM', (|pre~='')|
|00000d10| 2b 31 29 3b 74 65 78 74 | 20 3d 20 73 79 73 74 65 |+1);text| = syste|
|00000d20| 6d 2e 74 6d 70 2e 6c 6f | 67 70 72 65 20 7c 7c 20 |m.tmp.lo|gpre || |
|00000d30| 70 72 65 27 20 27 74 65 | 78 74 3b 4d 4d 5f 57 72 |pre' 'te|xt;MM_Wr|
|00000d40| 69 74 65 4c 6f 67 20 27 | 74 65 78 74 27 20 27 32 |iteLog '|text' '2|
|00000d50| 27 3b 72 65 74 75 72 6e | 3b 51 75 69 74 3a 3b 70 |';return|;Quit:;p|
|00000d60| 61 72 73 65 20 61 72 67 | 20 72 65 74 75 72 6e 5f |arse arg| return_|
|00000d70| 63 6f 64 65 2c 20 65 72 | 72 6f 72 5f 6d 73 67 3b |code, er|ror_msg;|
|00000d80| 65 72 72 6f 72 5f 6c 69 | 6e 65 20 3d 20 30 3b 72 |error_li|ne = 0;r|
|00000d90| 63 20 3d 20 30 3b 73 69 | 67 6e 61 6c 20 45 78 69 |c = 0;si|gnal Exi|
|00000da0| 74 3b 53 79 6e 74 61 78 | 3a 3b 73 69 67 6e 61 6c |t;Syntax|:;signal|
|00000db0| 20 6f 66 66 20 73 79 6e | 74 61 78 3b 72 65 74 75 | off syn|tax;retu|
|00000dc0| 72 6e 5f 63 6f 64 65 20 | 3d 20 34 30 3b 65 72 72 |rn_code |= 40;err|
|00000dd0| 6f 72 5f 6c 69 6e 65 20 | 3d 20 73 69 67 6c 3b 65 |or_line |= sigl;e|
|00000de0| 72 72 6f 72 5f 6d 73 67 | 20 3d 20 27 53 79 6e 74 |rror_msg| = 'Synt|
|00000df0| 61 78 2d 65 72 72 6f 72 | 27 20 72 63 20 27 61 74 |ax-error|' rc 'at|
|00000e00| 20 6c 69 6e 65 27 20 73 | 69 67 6c 20 27 5b 27 65 | line' s|igl '['e|
|00000e10| 72 72 6f 72 74 65 78 74 | 28 72 63 29 27 5d 27 3b |rrortext|(rc)']';|
|00000e20| 72 63 20 3d 20 30 3b 73 | 69 67 6e 61 6c 20 45 78 |rc = 0;s|ignal Ex|
|00000e30| 69 74 3b 52 65 71 75 65 | 73 74 5f 43 68 6f 69 63 |it;Reque|st_Choic|
|00000e40| 65 3a 20 70 72 6f 63 65 | 64 75 72 65 20 45 78 70 |e: proce|dure Exp|
|00000e50| 6f 73 65 20 73 79 73 74 | 65 6d 2e 3b 70 61 72 73 |ose syst|em.;pars|
|00000e60| 65 20 61 72 67 20 74 65 | 78 74 2c 20 62 75 74 74 |e arg te|xt, butt|
|00000e70| 6f 6e 73 2c 20 72 65 74 | 5f 76 61 6c 73 3b 74 69 |ons, ret|_vals;ti|
|00000e80| 74 6c 65 20 3d 20 73 79 | 73 74 65 6d 2e 70 72 67 |tle = sy|stem.prg|
|00000e90| 2e 6e 61 6d 65 27 2d 52 | 65 71 75 65 73 74 65 72 |.name'-R|equester|
|00000ea0| 27 3b 74 65 78 74 20 3d | 20 74 72 61 6e 73 6c 61 |';text =| transla|
|00000eb0| 74 65 28 52 65 70 6c 61 | 63 65 28 74 65 78 74 2c |te(Repla|ce(text,|
|00000ec0| 20 27 30 41 27 78 2c 20 | 27 5c 6e 27 29 2c 20 27 | '0A'x, |'\n'), '|
|00000ed0| 31 62 27 78 2c 20 27 5c | 27 29 3b 69 66 20 6c 65 |1b'x, '\|');if le|
|00000ee0| 6e 67 74 68 28 74 65 78 | 74 29 3c 34 30 20 74 68 |ngth(tex|t)<40 th|
|00000ef0| 65 6e 20 74 65 78 74 20 | 3d 20 63 65 6e 74 65 72 |en text |= center|
|00000f00| 28 74 65 78 74 2c 20 34 | 30 29 3b 4d 4d 5f 52 65 |(text, 4|0);MM_Re|
|00000f10| 71 75 65 73 74 65 72 20 | 74 69 74 6c 65 20 27 74 |quester |title 't|
|00000f20| 65 78 74 27 20 27 62 75 | 74 74 6f 6e 73 27 3b 69 |ext' 'bu|ttons';i|
|00000f30| 66 20 72 63 3d 30 20 74 | 68 65 6e 20 72 63 3d 77 |f rc=0 t|hen rc=w|
|00000f40| 6f 72 64 73 28 72 65 74 | 5f 76 61 6c 73 29 3b 72 |ords(ret|_vals);r|
|00000f50| 65 74 75 72 6e 20 63 6f | 6d 70 72 65 73 73 28 77 |eturn co|mpress(w|
|00000f60| 6f 72 64 28 72 65 74 5f | 76 61 6c 73 2c 20 72 63 |ord(ret_|vals, rc|
|00000f70| 29 2c 20 27 5f 27 29 3b | 52 65 70 6c 61 63 65 3a |), '_');|Replace:|
|00000f80| 20 70 72 6f 63 65 64 75 | 72 65 3b 70 61 72 73 65 | procedu|re;parse|
|00000f90| 20 61 72 67 20 73 74 72 | 69 6e 67 2c 20 6e 65 77 | arg str|ing, new|
|00000fa0| 2c 20 6f 6c 64 3b 64 6f | 20 77 68 69 6c 65 20 69 |, old;do| while i|
|00000fb0| 6e 64 65 78 28 73 74 72 | 69 6e 67 2c 20 6f 6c 64 |ndex(str|ing, old|
|00000fc0| 29 7e 3d 30 3b 69 6e 74 | 65 72 70 72 65 74 20 22 |)~=0;int|erpret "|
|00000fd0| 70 61 72 73 65 20 76 61 | 72 20 73 74 72 69 6e 67 |parse va|r string|
|00000fe0| 20 6c 20 27 22 6f 6c 64 | 22 27 20 72 22 3b 73 74 | l '"old|"' r";st|
|00000ff0| 72 69 6e 67 20 3d 20 6c | 20 7c 7c 20 6e 65 77 20 |ring = l| || new |
|00001000| 7c 7c 20 72 3b 65 6e 64 | 3b 72 65 74 75 72 6e 20 ||| r;end|;return |
|00001010| 73 74 72 69 6e 67 3b 41 | 64 64 54 6f 6f 6c 73 3a |string;A|ddTools:|
|00001020| 20 70 72 6f 63 65 64 75 | 72 65 20 65 78 70 6f 73 | procedu|re expos|
|00001030| 65 20 74 6f 6f 6c 73 2e | 3b 74 6f 6f 6c 73 2e 63 |e tools.|;tools.c|
|00001040| 6f 75 6e 74 20 3d 20 35 | 3b 74 6f 6f 6c 73 2e 30 |ount = 5|;tools.0|
|00001050| 20 3d 20 27 5a 52 65 61 | 64 65 72 20 28 5a 65 75 | = 'ZRea|der (Zeu|
|00001060| 73 20 42 42 53 29 27 3b | 74 6f 6f 6c 73 2e 30 2e |s BBS)';|tools.0.|
|00001070| 76 65 72 20 3d 20 27 30 | 2e 36 27 3b 74 6f 6f 6c |ver = '0|.6';tool|
|00001080| 73 2e 31 20 3d 20 27 46 | 69 6c 65 4b 69 6c 6c 65 |s.1 = 'F|ileKille|
|00001090| 72 20 28 5a 65 75 73 20 | 42 42 53 29 27 3b 74 6f |r (Zeus |BBS)';to|
|000010a0| 6f 6c 73 2e 31 2e 76 65 | 72 20 3d 20 27 31 2e 32 |ols.1.ve|r = '1.2|
|000010b0| 27 3b 74 6f 6f 6c 73 2e | 32 20 3d 20 27 53 6c 61 |';tools.|2 = 'Sla|
|000010c0| 6d 4d 61 69 6c 20 28 49 | 6e 20 44 65 76 65 6c 6f |mMail (I|n Develo|
|000010d0| 70 6d 65 6e 74 20 46 54 | 4e 20 45 64 69 74 6f 72 |pment FT|N Editor|
|000010e0| 29 27 3b 74 6f 6f 6c 73 | 2e 32 2e 76 65 72 20 3d |)';tools|.2.ver =|
|000010f0| 20 27 6e 2e 61 27 3b 74 | 6f 6f 6c 73 2e 33 20 3d | 'n.a';t|ools.3 =|
|00001100| 20 27 4d 4d 5f 4d 65 67 | 61 53 74 61 74 20 28 53 | 'MM_Meg|aStat (S|
|00001110| 74 61 74 69 73 74 69 63 | 73 20 50 72 6f 67 72 61 |tatistic|s Progra|
|00001120| 6d 29 27 3b 74 6f 6f 6c | 73 2e 33 2e 76 65 72 20 |m)';tool|s.3.ver |
|00001130| 3d 20 27 30 2e 31 33 27 | 3b 74 6f 6f 6c 73 2e 34 |= '0.13'|;tools.4|
|00001140| 20 3d 20 27 4d 4d 5f 53 | 68 6f 76 65 4d 73 67 73 | = 'MM_S|hoveMsgs|
|00001150| 20 28 45 63 68 6f 20 47 | 61 74 65 77 61 79 29 27 | (Echo G|ateway)'|
|00001160| 3b 74 6f 6f 6c 73 2e 34 | 2e 76 65 72 20 3d 20 27 |;tools.4|.ver = '|
|00001170| 30 2e 36 27 3b 74 6f 6f | 6c 73 2e 35 20 3d 20 27 |0.6';too|ls.5 = '|
|00001180| 4d 4d 5f 46 69 6e 64 50 | 69 72 61 74 65 73 20 28 |MM_FindP|irates (|
|00001190| 46 69 6e 64 73 20 50 69 | 72 61 74 65 20 53 2f 57 |Finds Pi|rate S/W|
|000011a0| 29 27 3b 74 6f 6f 6c 73 | 2e 35 2e 76 65 72 20 3d |)';tools|.5.ver =|
|000011b0| 20 27 31 2e 31 27 3b 74 | 6f 6f 6c 73 2e 36 20 3d | '1.1';t|ools.6 =|
|000011c0| 20 27 4d 4d 5f 53 70 65 | 63 74 72 65 20 28 41 20 | 'MM_Spe|ctre (A |
|000011d0| 47 68 6f 73 74 57 72 69 | 74 65 72 29 27 3b 74 6f |GhostWri|ter)';to|
|000011e0| 6f 6c 73 2e 36 2e 76 65 | 72 20 3d 20 27 31 2e 30 |ols.6.ve|r = '1.0|
|000011f0| 27 3b 72 65 74 75 72 6e | 3b 44 6f 52 65 71 75 65 |';return|;DoReque|
|00001200| 73 74 3a 20 70 72 6f 63 | 65 64 75 72 65 20 65 78 |st: proc|edure ex|
|00001210| 70 6f 73 65 20 74 6f 6f | 6c 73 2e 20 73 79 73 74 |pose too|ls. syst|
|00001220| 65 6d 2e 3b 64 72 6f 70 | 20 72 65 71 2e 3b 64 72 |em.;drop| req.;dr|
|00001230| 6f 70 20 6d 73 67 2e 3b | 64 72 6f 70 20 61 72 65 |op msg.;|drop are|
|00001240| 61 73 2e 3b 64 72 6f 70 | 20 6d 61 74 72 69 78 61 |as.;drop| matrixa|
|00001250| 72 65 61 2e 3b 63 61 6c | 6c 20 41 64 64 5f 54 65 |rea.;cal|l Add_Te|
|00001260| 78 74 28 27 27 29 3b 63 | 61 6c 6c 20 41 64 64 5f |xt('');c|all Add_|
|00001270| 54 65 78 74 28 27 27 29 | 3b 63 61 6c 6c 20 41 64 |Text('')|;call Ad|
|00001280| 64 5f 54 65 78 74 28 73 | 74 72 69 70 28 63 65 6e |d_Text(s|trip(cen|
|00001290| 74 65 72 28 27 54 4b 47 | 2d 49 6e 66 6f 4c 69 73 |ter('TKG|-InfoLis|
|000012a0| 74 20 52 65 71 75 65 73 | 74 27 2c 37 37 29 2c 27 |t Reques|t',77),'|
|000012b0| 74 27 29 29 3b 63 61 6c | 6c 20 41 64 64 5f 54 65 |t'));cal|l Add_Te|
|000012c0| 78 74 28 73 74 72 69 70 | 28 63 65 6e 74 65 72 28 |xt(strip|(center(|
|000012d0| 27 3d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |'=------|--------|
|000012e0| 2d 2d 3d 27 2c 37 37 29 | 2c 27 74 27 29 29 3b 63 |--=',77)|,'t'));c|
|000012f0| 61 6c 6c 20 41 64 64 5f | 54 65 78 74 28 27 27 29 |all Add_|Text('')|
|00001300| 3b 63 61 6c 6c 20 52 65 | 71 75 65 73 74 5f 43 68 |;call Re|quest_Ch|
|00001310| 6f 69 63 65 28 27 5c 63 | 5c 6e 5c 30 57 65 6c 63 |oice('\c|\n\0Welc|
|00001320| 6f 6d 65 21 5c 6e 5c 6e | 5c 32 5c 6c 59 6f 75 20 |ome!\n\n|\2\lYou |
|00001330| 63 61 6e 20 75 73 65 20 | 74 68 69 73 20 70 72 6f |can use |this pro|
|00001340| 67 72 61 6d 20 74 6f 20 | 61 64 64 20 79 6f 75 72 |gram to |add your|
|00001350| 73 65 6c 66 20 74 6f 20 | 74 68 65 20 60 49 6e 66 |self to |the `Inf|
|00001360| 6f 4c 69 73 74 73 27 27 | 20 75 73 65 64 5c 6e 61 |oLists''| used\na|
|00001370| 74 20 54 4b 47 20 53 6f | 66 74 77 61 72 65 2e 20 |t TKG So|ftware. |
|00001380| 54 68 65 73 65 20 6c 69 | 73 74 20 69 6e 66 6f 72 |These li|st infor|
|00001390| 6d 20 79 6f 75 20 77 68 | 65 6e 65 76 65 72 20 61 |m you wh|enever a|
|000013a0| 20 6e 65 77 20 76 65 72 | 73 69 6f 6e 5c 6e 6f 66 | new ver|sion\nof|
|000013b0| 20 61 20 73 70 65 63 69 | 66 69 63 20 73 6f 66 74 | a speci|fic soft|
|000013c0| 77 61 72 65 20 70 61 63 | 6b 61 67 65 20 69 73 20 |ware pac|kage is |
|000013d0| 72 65 6c 65 61 73 65 64 | 2e 5c 6e 5c 6e 50 6c 65 |released|.\n\nPle|
|000013e0| 61 73 65 20 6e 6f 74 65 | 3a 20 59 6f 75 20 6e 65 |ase note|: You ne|
|000013f0| 65 64 20 74 6f 20 62 65 | 20 61 62 6c 65 20 74 6f |ed to be| able to|
|00001400| 20 73 65 6e 64 20 5c 30 | 46 69 64 6f 4e 65 74 5c | send \0|FidoNet\|
|00001410| 32 20 4e 65 74 4d 61 69 | 6c 73 2e 20 59 6f 75 5c |2 NetMai|ls. You\|
|00001420| 6e 63 61 6e 20 65 78 69 | 74 20 74 68 69 73 20 70 |ncan exi|t this p|
|00001430| 72 6f 67 72 61 6d 20 62 | 79 20 63 61 6e 63 65 6c |rogram b|y cancel|
|00001440| 6c 69 6e 67 20 74 68 65 | 20 5c 31 6e 65 78 74 5c |ling the| \1next\|
|00001450| 32 20 72 65 71 75 65 73 | 74 65 72 2e 5c 6e 5c 6e |2 reques|ter.\n\n|
|00001460| 5c 72 54 68 61 6e 6b 20 | 79 6f 75 20 66 6f 72 20 |\rThank |you for |
|00001470| 79 6f 75 72 20 69 6e 74 | 65 72 65 73 74 20 69 6e |your int|erest in|
|00001480| 20 54 4b 47 20 53 6f 66 | 74 77 61 72 65 21 5c 6e | TKG Sof|tware!\n|
|00001490| 27 2c 27 2a 20 20 5f 4f | 6b 61 79 20 20 27 2c 27 |','*  _O|kay  ','|
|000014a0| 5f 27 29 3b 4d 4d 5f 4d | 75 6c 74 69 53 65 6c 52 |_');MM_M|ultiSelR|
|000014b0| 65 71 20 27 74 6f 6f 6c | 73 27 20 27 72 65 71 27 |eq 'tool|s' 'req'|
|000014c0| 20 27 22 43 68 6f 6f 73 | 65 20 77 68 69 63 68 20 | '"Choos|e which |
|000014d0| 74 6f 6f 6c 73 20 74 6f | 20 6a 6f 69 6e 20 74 68 |tools to| join th|
|000014e0| 65 20 49 6e 66 6f 4c 69 | 73 74 20 66 6f 72 22 27 |e InfoLi|st for"'|
|000014f0| 20 27 6e 75 6d 27 3b 69 | 66 20 28 52 43 20 7e 3d | 'num';i|f (RC ~=|
|00001500| 20 31 29 20 26 20 28 72 | 65 71 2e 63 6f 75 6e 74 | 1) & (r|eq.count|
|00001510| 20 3e 20 30 29 20 74 68 | 65 6e 20 64 6f 3b 63 61 | > 0) th|en do;ca|
|00001520| 6c 6c 20 6c 6f 67 28 27 | 4a 6f 69 6e 69 6e 67 20 |ll log('|Joining |
|00001530| 49 6e 66 6f 4c 69 73 74 | 73 20 66 6f 72 3a 27 29 |InfoList|s for:')|
|00001540| 3b 64 6f 20 69 20 3d 20 | 30 20 74 6f 20 72 65 71 |;do i = |0 to req|
|00001550| 2e 63 6f 75 6e 74 2d 31 | 3b 6e 75 6d 20 3d 20 72 |.count-1|;num = r|
|00001560| 65 71 2e 69 3b 63 61 6c | 6c 20 6c 6f 67 28 27 20 |eq.i;cal|l log(' |
|00001570| 2d 3e 20 27 74 6f 6f 6c | 73 2e 6e 75 6d 29 3b 63 |-> 'tool|s.num);c|
|00001580| 61 6c 6c 20 41 64 64 5f | 54 6f 6f 6c 28 6e 75 6d |all Add_|Tool(num|
|00001590| 29 3b 45 6e 64 3b 45 6e | 64 3b 65 6c 73 65 3b 63 |);End;En|d;else;c|
|000015a0| 61 6c 6c 20 51 75 69 74 | 28 35 2c 27 41 62 6f 72 |all Quit|(5,'Abor|
|000015b0| 74 65 64 20 62 79 20 75 | 73 65 72 27 29 3b 69 66 |ted by u|ser');if|
|000015c0| 20 52 65 71 75 65 73 74 | 5f 43 68 6f 69 63 65 28 | Request|_Choice(|
|000015d0| 27 5c 63 5c 6e 4d 61 79 | 20 49 20 63 6f 6c 6c 65 |'\c\nMay| I colle|
|000015e0| 63 74 20 73 6f 6d 65 20 | 69 6e 66 6f 72 6d 61 74 |ct some |informat|
|000015f0| 69 6f 6e 5c 6e 61 62 6f | 75 74 20 79 6f 75 72 20 |ion\nabo|ut your |
|00001600| 73 79 73 74 65 6d 3f 20 | 28 59 6f 75 20 63 61 6e |system? |(You can|
|00001610| 20 72 65 76 69 65 77 5c | 6e 74 68 65 20 63 6f 6c | review\|nthe col|
|00001620| 6c 65 63 74 65 64 20 69 | 6e 66 6f 20 6c 61 74 65 |lected i|nfo late|
|00001630| 72 29 5c 6e 27 2c 27 2a | 20 20 5f 59 65 73 20 20 |r)\n','*|  _Yes  |
|00001640| 7c 20 20 5f 4e 6f 20 20 | 20 27 2c 27 31 20 30 27 ||  _No  | ','1 0'|
|00001650| 29 20 3d 20 31 20 74 68 | 65 6e 20 64 6f 3b 63 61 |) = 1 th|en do;ca|
|00001660| 6c 6c 20 41 64 64 5f 54 | 65 78 74 28 27 27 29 3b |ll Add_T|ext('');|
|00001670| 63 61 6c 6c 20 41 64 64 | 5f 54 65 78 74 28 27 27 |call Add|_Text(''|
|00001680| 29 3b 63 61 6c 6c 20 41 | 64 64 5f 54 65 78 74 28 |);call A|dd_Text(|
|00001690| 27 4d 61 69 6c 4d 61 6e | 61 67 65 72 20 76 27 73 |'MailMan|ager v's|
|000016a0| 79 73 74 65 6d 2e 6d 6d | 2e 76 65 72 73 69 6f 6e |ystem.mm|.version|
|000016b0| 27 20 72 27 73 79 73 74 | 65 6d 2e 6d 6d 2e 72 65 |' r'syst|em.mm.re|
|000016c0| 6c 65 61 73 65 27 2e 27 | 29 3b 69 66 20 73 68 6f |lease'.'|);if sho|
|000016d0| 77 28 27 50 27 2c 20 27 | 5a 45 55 53 27 29 20 74 |w('P', '|ZEUS') t|
|000016e0| 68 65 6e 20 63 61 6c 6c | 20 41 64 64 5f 54 65 78 |hen call| Add_Tex|
|000016f0| 74 28 27 5a 65 75 73 20 | 50 72 6f 20 42 75 6c 6c |t('Zeus |Pro Bull|
|00001700| 65 74 69 6e 20 42 6f 61 | 72 64 20 53 79 73 74 65 |etin Boa|rd Syste|
|00001710| 6d 2e 27 29 3b 69 66 20 | 65 78 69 73 74 73 28 27 |m.');if |exists('|
|00001720| 43 79 63 6c 6f 6e 65 3a | 43 79 63 6c 6f 6e 65 27 |Cyclone:|Cyclone'|
|00001730| 29 20 74 68 65 6e 20 63 | 61 6c 6c 20 41 64 64 5f |) then c|all Add_|
|00001740| 54 65 78 74 28 27 43 79 | 63 6c 6f 6e 65 20 69 73 |Text('Cy|clone is|
|00001750| 20 69 6e 73 74 61 6c 6c | 65 64 2e 27 29 3b 69 66 | install|ed.');if|
|00001760| 20 4f 70 65 6e 28 66 68 | 2c 27 45 6e 76 3a 54 68 | Open(fh|,'Env:Th|
|00001770| 6f 72 2f 54 68 6f 72 56 | 65 72 73 69 6f 6e 27 2c |or/ThorV|ersion',|
|00001780| 27 52 27 29 20 74 68 65 | 6e 20 64 6f 3b 63 61 6c |'R') the|n do;cal|
|00001790| 6c 20 41 64 64 5f 54 65 | 78 74 28 27 54 68 6f 72 |l Add_Te|xt('Thor|
|000017a0| 20 28 27 72 65 61 64 6c | 6e 28 66 68 29 27 29 20 | ('readl|n(fh)') |
|000017b0| 69 73 20 69 6e 73 74 61 | 6c 6c 65 64 2e 27 29 3b |is insta|lled.');|
|000017c0| 43 6c 6f 73 65 28 66 68 | 29 3b 45 6e 64 3b 45 6e |Close(fh|);End;En|
|000017d0| 64 3b 63 61 6c 6c 20 41 | 64 64 5f 54 65 78 74 28 |d;call A|dd_Text(|
|000017e0| 29 3b 63 61 6c 6c 20 41 | 64 64 5f 54 65 78 74 28 |);call A|dd_Text(|
|000017f0| 29 3b 63 61 6c 6c 20 41 | 64 64 5f 54 65 78 74 28 |);call A|dd_Text(|
|00001800| 27 2d 2d 2d 27 20 73 79 | 73 74 65 6d 2e 70 72 67 |'---' sy|stem.prg|
|00001810| 2e 69 64 29 3b 63 72 61 | 73 68 20 3d 20 52 65 71 |.id);cra|sh = Req|
|00001820| 75 65 73 74 5f 43 68 6f | 69 63 65 28 27 5c 63 5c |uest_Cho|ice('\c\|
|00001830| 6e 43 52 41 53 48 4d 41 | 49 4c 20 74 68 65 20 6d |nCRASHMA|IL the m|
|00001840| 65 73 73 61 67 65 20 74 | 6f 20 74 68 65 20 61 75 |essage t|o the au|
|00001850| 74 68 6f 72 3f 5c 6e 27 | 2c 27 20 20 5f 59 45 53 |thor?\n'|,'  _YES|
|00001860| 20 20 7c 2a 20 20 5f 4e | 4f 20 20 20 27 2c 27 43 |  |*  _N|O   ','C|
|00001870| 52 41 53 48 20 5f 27 29 | 3b 6d 73 67 2e 74 6f 20 |RASH _')|;msg.to |
|00001880| 3d 20 73 79 73 74 65 6d | 2e 61 75 74 68 6f 72 2e |= system|.author.|
|00001890| 6e 61 6d 65 3b 6d 73 67 | 2e 74 6f 61 64 64 72 20 |name;msg|.toaddr |
|000018a0| 3d 20 73 79 73 74 65 6d | 2e 61 75 74 68 6f 72 2e |= system|.author.|
|000018b0| 61 64 64 72 3b 6d 73 67 | 2e 73 75 62 6a 20 3d 20 |addr;msg|.subj = |
|000018c0| 27 4a 6f 69 6e 20 54 4b | 47 2d 49 6e 66 6f 4c 69 |'Join TK|G-InfoLi|
|000018d0| 73 74 27 3b 6d 73 67 2e | 66 6c 61 67 73 20 3d 20 |st';msg.|flags = |
|000018e0| 27 52 52 52 27 20 63 72 | 61 73 68 3b 6d 73 67 2e |'RRR' cr|ash;msg.|
|000018f0| 66 69 6c 65 20 3d 20 73 | 79 73 74 65 6d 2e 74 6d |file = s|ystem.tm|
|00001900| 70 66 69 6c 65 3b 4d 4d | 5f 57 72 69 74 65 53 74 |pfile;MM|_WriteSt|
|00001910| 65 6d 20 6d 73 67 2e 66 | 69 6c 65 20 27 6d 73 67 |em msg.f|ile 'msg|
|00001920| 2e 74 65 78 74 27 3b 4d | 4d 5f 47 65 74 41 72 65 |.text';M|M_GetAre|
|00001930| 61 73 20 27 61 72 65 61 | 73 27 20 27 4d 41 49 4c |as 'area|s' 'MAIL|
|00001940| 27 3b 63 61 6c 6c 20 52 | 65 71 75 65 73 74 5f 43 |';call R|equest_C|
|00001950| 68 6f 69 63 65 28 27 5c | 6e 5c 63 50 6c 65 61 73 |hoice('\|n\cPleas|
|00001960| 65 20 73 65 6c 65 63 74 | 20 79 6f 75 72 20 5c 30 |e select| your \0|
|00001970| 46 69 64 6f 4e 65 74 5c | 32 20 6e 65 74 6d 61 69 |FidoNet\|2 netmai|
|00001980| 6c 20 61 72 65 61 2e 5c | 6e 27 2c 27 2a 20 20 5f |l area.\|n','*  _|
|00001990| 4f 6b 61 79 20 20 27 2c | 27 5f 27 29 3b 64 6f 20 |Okay  ',|'_');do |
|000019a0| 77 68 69 6c 65 20 6d 61 | 74 72 69 78 61 72 65 61 |while ma|trixarea|
|000019b0| 2e 63 6f 75 6e 74 20 7e | 3d 20 31 3b 4d 4d 5f 53 |.count ~|= 1;MM_S|
|000019c0| 69 6e 67 6c 65 53 65 6c | 52 65 71 20 27 61 72 65 |ingleSel|Req 'are|
|000019d0| 61 73 27 20 27 6d 61 74 | 72 69 78 61 72 65 61 27 |as' 'mat|rixarea'|
|000019e0| 20 27 22 59 6f 75 72 20 | 6e 65 74 6d 61 69 6c 20 | '"Your |netmail |
|000019f0| 61 72 65 61 3a 22 27 20 | 27 53 54 52 27 3b 65 6e |area:"' |'STR';en|
|00001a00| 64 3b 4d 4d 5f 57 72 69 | 74 65 4d 73 67 20 6d 61 |d;MM_Wri|teMsg ma|
|00001a10| 74 72 69 78 61 72 65 61 | 2e 30 20 27 6d 73 67 27 |trixarea|.0 'msg'|
|00001a20| 3b 4d 4d 5f 44 65 6c 65 | 74 65 46 69 6c 65 20 6d |;MM_Dele|teFile m|
|00001a30| 73 67 2e 66 69 6c 65 3b | 63 61 6c 6c 20 52 65 71 |sg.file;|call Req|
|00001a40| 75 65 73 74 5f 43 68 6f | 69 63 65 28 27 5c 63 5c |uest_Cho|ice('\c\|
|00001a50| 6e 5c 30 44 6f 6e 65 21 | 5c 6e 5c 6e 5c 32 5c 6c |n\0Done!|\n\n\2\l|
|00001a60| 54 68 65 20 6d 65 73 73 | 61 67 65 20 68 61 73 20 |The mess|age has |
|00001a70| 62 65 65 6e 20 63 72 65 | 61 74 65 64 20 69 6e 20 |been cre|ated in |
|00001a80| 74 68 65 20 61 72 65 61 | 20 79 6f 75 20 73 65 6c |the area| you sel|
|00001a90| 65 63 74 65 64 2c 5c 6e | 70 6c 65 61 73 65 20 63 |ected,\n|please c|
|00001aa0| 68 65 63 6b 20 74 68 61 | 74 20 69 74 27 27 73 20 |heck tha|t it''s |
|00001ab0| 63 6f 72 72 65 63 74 20 | 74 68 65 6e 20 65 78 70 |correct |then exp|
|00001ac0| 6f 72 74 20 74 68 65 20 | 61 72 65 61 2e 5c 6e 27 |ort the |area.\n'|
|00001ad0| 2c 27 2a 20 20 5f 4f 6b | 61 79 20 20 27 2c 27 5f |,'*  _Ok|ay  ','_|
|00001ae0| 27 29 3b 72 65 74 75 72 | 6e 3b 41 64 64 5f 54 65 |');retur|n;Add_Te|
|00001af0| 78 74 3a 20 70 72 6f 63 | 65 64 75 72 65 20 45 78 |xt: proc|edure Ex|
|00001b00| 70 6f 73 65 20 6d 73 67 | 2e 3b 70 61 72 73 65 20 |pose msg|.;parse |
|00001b10| 61 72 67 20 6c 69 6e 65 | 3b 4d 4d 5f 41 64 64 54 |arg line|;MM_AddT|
|00001b20| 6f 53 74 65 6d 20 27 6d | 73 67 2e 74 65 78 74 27 |oStem 'm|sg.text'|
|00001b30| 20 27 6c 69 6e 65 27 3b | 72 65 74 75 72 6e 3b 41 | 'line';|return;A|
|00001b40| 64 64 5f 54 6f 6f 6c 3a | 20 70 72 6f 63 65 64 75 |dd_Tool:| procedu|
|00001b50| 72 65 20 45 78 70 6f 73 | 65 20 6d 73 67 2e 20 74 |re Expos|e msg. t|
|00001b60| 6f 6f 6c 73 2e 3b 70 61 | 72 73 65 20 61 72 67 20 |ools.;pa|rse arg |
|00001b70| 6e 72 3b 6c 69 6e 65 3d | 73 74 72 69 70 28 63 65 |nr;line=|strip(ce|
|00001b80| 6e 74 65 72 28 27 20 2d | 3e 27 20 6c 65 66 74 28 |nter(' -|>' left(|
|00001b90| 74 6f 6f 6c 73 2e 6e 72 | 2c 33 30 29 2c 37 37 29 |tools.nr|,30),77)|
|00001ba0| 2c 27 74 27 29 3b 4d 4d | 5f 41 64 64 54 6f 53 74 |,'t');MM|_AddToSt|
|00001bb0| 65 6d 20 27 6d 73 67 2e | 74 65 78 74 27 20 27 6c |em 'msg.|text' 'l|
|00001bc0| 69 6e 65 27 3b 72 65 74 | 75 72 6e 0a 2f 2a 20 4f |ine';ret|urn./* O|
|00001bd0| 72 69 67 69 6e 61 6c 20 | 73 63 72 69 70 74 3a 20 |riginal |script: |
|00001be0| 33 30 37 20 6c 69 6e 65 | 73 2c 20 38 31 37 39 20 |307 line|s, 8179 |
|00001bf0| 62 79 74 65 73 2c 20 63 | 6d 70 72 61 74 65 20 32 |bytes, c|mprate 2|
|00001c00| 31 2e 30 25 20 2a 2f 0a | 00 00 00 00 00 00 03 f2 |1.0% */.|........|
+--------+-------------------------+-------------------------+--------+--------+